home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / basupd / error$.bas < prev    next >
BASIC Source File  |  1992-06-18  |  3KB  |  71 lines
  1. '   +----------------------------------------------------------------------+
  2. '   |                                                                      |
  3. '   |           BasUpd  Copyright (c) 1992  Thomas G. Hanlin III           |
  4. '   |                                                                      |
  5. '   |            See BASUPD.DOC for info on distribution policy            |
  6. '   |                                                                      |
  7. '   +----------------------------------------------------------------------+
  8.  
  9.    DEFINT A-Z
  10.  
  11. FUNCTION Error$ (ErrCode)
  12.    SELECT CASE ErrCode
  13.       CASE 1 : St$ = "NEXT without FOR"
  14.       CASE 2 : St$ = "Syntax error"
  15.       CASE 3 : St$ = "RETURN without GOSUB"
  16.       CASE 4 : St$ = "Out of DATA"
  17.       CASE 5 : St$ = "Illegal function call"
  18.       CASE 6 : St$ = "Overflow"
  19.       CASE 7 : St$ = "Out of memory"
  20.       CASE 8 : St$ = "Label not defined"
  21.       CASE 9 : St$ = "Subscript out of range"
  22.       CASE 10: St$ = "Duplicate definition"
  23.       CASE 11: St$ = "Division by zero"
  24.       CASE 12: St$ = "Illegal in direct mode"
  25.       CASE 13: St$ = "Type mismatch"
  26.       CASE 14: St$ = "Out of string space"
  27.       CASE 16: St$ = "String formula too complex"
  28.       CASE 17: St$ = "Cannot continue"
  29.       CASE 18: St$ = "Function not defined"
  30.       CASE 19: St$ = "No RESUME"
  31.       CASE 20: St$ = "RESUME without error"
  32.       CASE 24: St$ = "Device timeout"
  33.       CASE 25: St$ = "Device fault"
  34.       CASE 26: St$ = "FOR without NEXT"
  35.       CASE 27: St$ = "Out of paper"
  36.       CASE 29: St$ = "WHILE without WEND"
  37.       CASE 30: St$ = "WEND without WHILE"
  38.       CASE 33: St$ = "Duplicate label"
  39.       CASE 35: St$ = "Subprogram not defined"
  40.       CASE 37: St$ = "Argument-count mismatch"
  41.       CASE 38: St$ = "Array not defined"
  42.       CASE 40: St$ = "Variable required"
  43.       CASE 50: St$ = "FIELD overflow"
  44.       CASE 51: St$ = "Internal error"
  45.       CASE 52: St$ = "Bad file name or number"
  46.       CASE 53: St$ = "File not found"
  47.       CASE 54: St$ = "Bad file mode"
  48.       CASE 55: St$ = "File already open"
  49.       CASE 56: St$ = "FIELD statement active"
  50.       CASE 57: St$ = "Device I/O error"
  51.       CASE 58: St$ = "File already exists"
  52.       CASE 59: St$ = "Bad record length"
  53.       CASE 61: St$ = "Disk full"
  54.       CASE 62: St$ = "Input past end of file"
  55.       CASE 63: St$ = "Bad record number"
  56.       CASE 64: St$ = "Bad file name"
  57.       CASE 67: St$ = "Too many files"
  58.       CASE 68: St$ = "Device unavailable"
  59.       CASE 69: St$ = "Communication-buffer overflow"
  60.       CASE 70: St$ = "Permission denied"
  61.       CASE 71: St$ = "Disk not ready"
  62.       CASE 72: St$ = "Disk-media error"
  63.       CASE 73: St$ = "Feature unavailable"
  64.       CASE 74: St$ = "Rename across disks"
  65.       CASE 75: St$ = "Path/File access error"
  66.       CASE 76: St$ = "Path not found"
  67.       CASE ELSE: St$ = "Unprintable error"
  68.    END SELECT
  69.    Error$ = St$
  70. END FUNCTION
  71.